home *** CD-ROM | disk | FTP | other *** search
/ Golden Disk / Golden_Disk_89-06_1989_-_de_Side_B.d64 / a song for you ! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  574b  |  24 lines
  1. 98 rem --- playroutine laden
  2. 99 :
  3. 100 ifa=0thena=1:gosub180:load"playroutine",8,1
  4. 101 :
  5. 108 rem --- tastaturabfrage (0-9)
  6. 109 :
  7. 110 ifa=1thena=2:input"welcher sound (0-9) ";a$:ifa$<"0"ora$>"9"thena=1:goto110
  8. 111 :
  9. 118 rem --- musik abschalten und laden
  10. 119 :
  11. 120 ifa=2thena=3:sys64789:poke54296,0:a$="song for you."+a$:loada$,8,1
  12. 121 :
  13. 128 rem --- musik im irq starten
  14. 129 :
  15. 130 ifa=3thena=4:sys52992:end
  16. 169 :
  17. 170 rem --- irq-routine in data-zeilen
  18. 171 :
  19. 180 fori=0to28:readg:s=s+g:poke52992+i,g:next:ifs<>2790thenprint"error":end
  20. 190 return
  21. 200 data120,169,23,141,20,3,169,207,141
  22. 210 data21,3,169,75,141,5,220,169,0,32
  23. 220 data3,192,88,96,32,0,192,76,49,234
  24.